home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / BrettBestellen.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  94 lines
  1. /*
  2.     $VER: BrettBestellen.zprx V1.0 (30.8.94) Copyright (c) Jan Ritzerfeld
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's  Point,  mit  dem  man  auf
  5.     bequeme  Weise  schon eingerichtete Bretter wieder bestellen kann,
  6.     falls die Boxsoft einfach welche ausgetragen hat.
  7.  
  8.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  9.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  10.     nicht ohne Erlaubnis des Autors.
  11.  
  12.     Sie erreichen den Autor wie folgt:
  13.  
  14.        Jan Ritzerfeld         Tel. : +49 2421 65177
  15.        Dornheckweg 9          EMail: j.ritzerfeld@darkness.gun.de
  16.        52355 Düren-Birgel
  17.  
  18.     Hinweise zur Installation:
  19.  
  20.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  21.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  22.     "F1:SYS:Rexxc/RX ZP:Rexx/BrettBestellen.zprx %s" hinzu.
  23. */
  24.  
  25. /* Der Konfigurations-Teil des Skriptes:
  26.  
  27.    Hier bitte die Netzadresse von MAPS angeben. */
  28.  
  29. maps = 'maps@darkness.gun.de'
  30.  
  31. /* Und hier bitte den MAPS-Befehl zum Brettbestellen eintragen. */
  32.  
  33. add = 'ADD'
  34.  
  35.  
  36. /* Das eigentliche Programm: Änderungen sind nicht mehr gestattet! */
  37.  
  38. GUILOCK ON
  39. options failat 10
  40. signal on syntax
  41.  
  42. parse arg zpPort
  43. if (zpPort = '') then
  44.   zpPort = 'ZPoint'
  45. address value zpPort
  46. options results
  47.  
  48. call addlib('rexxsupport.library',0,-30,0)
  49.  
  50. temp = 'T:ba'pragma('I')
  51. call delete(temp)
  52.  
  53.  
  54. WHICHLEVEL
  55. level = result
  56. if (level = 'MAINMENU') then
  57.   do
  58.   REQUESTNOTIFY 'Ein Brett kann man nur aus dem Brett- oder Nachrichtenmenü bestellen!'
  59.   GUILOCK OFF
  60.   exit
  61.   end
  62.  
  63. if (level = 'BOARDMENU') then
  64.   ENTERBOARD
  65.   GUILOCK ON
  66.  
  67. BOARDINFO LABEL
  68. name = result
  69. REQUESTRESPONSE 'Das Brett 'name' wirklich bestellen?'
  70. if (rc) then
  71.   do
  72.   GUILOCK ON
  73.   call Open('MapsAdd',temp,'W')
  74.   call writeln('MapsAdd',name)
  75.   call Close('MapsAdd')
  76.   WRITEMESSAGE temp 'RECEIVER' maps 'SUBJECT' add
  77.   end
  78.  
  79. GUILOCK ON
  80. if (level = 'BOARDMENU') then
  81.   BOARDMENU
  82.  
  83. call delete(temp)
  84. GUILOCK OFF
  85. exit
  86.  
  87.  
  88. syntax: /* Ein Fehler ist aufgetreten ! */
  89.  
  90. REQUESTNOTIFY 'Schade auch, Fehler in Zeile' SIGL ':' ERRORTEXT(rc) ':-('
  91. GUILOCK OFF
  92.  
  93. exit
  94.